home *** CD-ROM | disk | FTP | other *** search
- % -----------------------------------------------------------------------------
- % Directory demonstration *TERMINATE PRESCRIPTION*
- % -----------------------------------------------------------------------------
- %
- % Version : 1.00
- % Filename : SHOWDIR.TSL
- % Company : SerWiz Comm
- % Programmer : Bo Bendtsen
- % Module created : 06 Aug 1995
- % Latest revision : 06 Aug 1995
- % Language/version : Terminate Prescription 1.00
- % Remarks : Easy demonstration to show a directory
- %
- % -----------------------------------------------------------------------------
-
- ClearScreen
- Window 40,1,80,25,6,0,23,23,27," Show directory "
- WriteAStr 2,0,31," Esc to Abort "
-
- Set Key=0
- Set CurrentDir = "C:\*.*"
- Repeat
- Set CurrentDir=Input(1,23,41,23,31,CurrentDir)
- PrintLn
- If Key<>27
- PrintLn " ",FindFirst(CurrentDir,32)
- While IOResult=0
- PrintLn " ",FindNext
- EndWhile
- Endif
- Until Key=27
-
- RemoveWindow
-